#!/usr/bin/perl
#This function extracts the actual numeric value of the percentage.
sub get_reqd_percentage{
	my(@line_split) = @_;
	$local_flag1 = 0;
	foreach $local_var1 (@line_split){
		if ($local_var1 =~/%/){
			$percentage_word = $local_var1;                        #arr2 has the percentage..0%, 100% etc.
			$local_flag1 = 1;
		}
		if ($local_flag1 == 1){
			break;
		}
	}
	($perc) = $percentage_word =~/(\d+)/;                            #perc has only the percentage number.
	return($percentage_word,$perc);                                  #$arr2 maps to $spl2 ------- $perc maps to $percnum.
}
1;
